home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
1st_b110.zip
/
$$MAIL.SCR
< prev
next >
Wrap
Text File
|
1993-01-26
|
3KB
|
112 lines
' ┌─────────────────────────────────┐
' │ Qmail mail script for 1stReader │
' │ Written by Mark Herring │
' │ September 27, 1992 │
' └─────────────────────────────────┘
CAPTURE ON
TIMEOUT 30
LOOKFOR "correct? " "^M"
LOOKFOR "elp, More? " "N^M"
LOOKFOR "(Enter)=yes? " "N^M"
LOOKFOR "Language #" "@LANGUAGE@^M"
LOOKFOR ") to continue?" "^M"
LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@ Opened capture file @BBSID@.CAP"
COMMENT "@DATE@ @TIME@ Logging in to system"
WAITFOR "color|graphics" 20
TRANSMIT "@GRAPHICS@ Q NS^M"
WAITFOR "first name" 50
IF FOUND=0 EXIT
TRANSMIT "@USER@^M"
WAITFOR "password|new user?" 30
LOOKFOR "correct? " ""
IF FOUND=1 GOTO LOGIN
IF FOUND=2 GOTO NEWUSER
GOTO COMMAND
:NEWUSER
COMMENT "@DATE@ @TIME@ New user login"
LOOKFOR "(Enter)=yes? " ""
LOOKFOR ") to continue?" ""
IF NOT SWITCH 1 HELP 198
TRANSMIT "^M"
WAITFOR ")=yes?" 30
TRANSMIT "Y^M"
WAITFOR "please!)?" 30
TRANSMIT "@PASSWORD@^M"
WAITFOR "verify?" 30
TRANSMIT "@PASSWORD@^M"
TERMINAL
LOOKFOR "(Enter)=yes? " "N^M"
LOOKFOR ") to continue?" "^M"
GOTO DOOR
:LOGIN
COMMENT "@DATE@ @TIME@ Transmitting password"
TRANSMIT "@PASSWORD@^M"
:COMMAND
WAITFOR "Command?"
TIMEOUT 60
:DOOR
COMMENT "@DATE@ @TIME@ Joining conference #@CONFERENCE@"
TRANSMIT "J @CONFERENCE@ Q^M"
WAITFOR "=yes?" 3
IF FOUND=1 TRANSMIT "N^M"
COMMENT "@DATE@ @TIME@ Opening Qmail Door"
TRANSMIT "@QMAIL@ PROMPTS;@COMMAND@D@API$(48);Y;G^M"
LOOKFOR "<AUTOSTART>" "X'1B"
IF NOT KEYWORDS GOTO REPLIES
COMMENT "@DATE@ @TIME@ Transmitting keywords"
WAITFOR "<KEYUP>"
UPLOAD @API$(14)KEYWORDS
:REPLIES
IF NOT REPLIES GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR "<UPLOAD>"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "<DELETE PACKET>|<DELETE NO>|<BAD UPLD>"
IF FOUND=1 GOTO GOODUPLD
GOTO DOWNLOAD
:GOODUPLD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
:DOWNLOAD
COMMENT "@DATE@ @TIME@ Scanning for new messages"
WAITFOR "<DOWNLOAD>|<NO TRANSFER>|<NO TIME>"
IF FOUND=1 GOTO GETMAIL
GOTO GOODBYE
:GETMAIL
DOWNLOAD @PACKETDIR@@BBSID@.QWK
WAITFOR "<DL SUCCESS>|<DL ERROR>"
IF FOUND=2 GOTO EXIT
COUNT QWK
GOTO EXIT
:GOODBYE
PAUSE 2
COMMENT "@DATE@ @TIME@ Transmitting GOODBYE command"
TRANSMIT "G^M"
:EXIT
COMMENT "@DATE@ @TIME@ Waiting for disconnect"
LOOKFOR "<GOODBYE>" "^M"
WAITFOR "<HANGUP>" 20
PAUSE 2
CAPTURE OFF